(defpackage #:lilu-emacs-tests
  (:use #:cl #:fiveam #:lilu-emacs))

(in-package #:lilu-emacs-tests)

(def-suite lilu-emacs-system
  :description "Test lilu-emacs system")

(in-suite lilu-emacs-system)

(test emacs-version
  (let ((version (lilu-emacs::emacs-version)))
    (is (string= "27.2" version))))

(test emacs-client-version
  (let ((version (subseq (lilu-emacs::emacs-client-version) 0 4)))
    (is (string= "27.2" version))))


;;;
;;;
;;;

(defun run-tests ()
  (run! 'lilu-emacs-system))
